home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 003.dms / 003.adf / EXAMPLE_PROGRAMS / example8.AMOS / example8.amosSourceCode
AMOS Source Code  |  1993-02-25  |  822b  |  45 lines
  1. 'EXAMPLE PROGRAM 8 
  2. '
  3. '
  4. Rem the usual start up stuff 
  5. Curs Off : Paper 8 : Pen 0 : Cls 8
  6. '
  7. '
  8. Rem the CENTRE command is used instead of PRINT, to CENTRE text on screen. 
  9. Centre "DEMONSTRATION OF CHANGE MOUSE"
  10. '
  11. '
  12. Rem colour 3 is set to flashing as default, you can switch flash off with  
  13. Rem the command FLASH OFF, try putting it in.
  14. Pen 3
  15. '
  16. '
  17. Rem set text cursor to 0 across 10 down and CENTRE the text, as the current
  18. Rem PEN colour is set to 3 this text will FLASH. 
  19. Locate 0,10 : Centre "NORMAL MOUSE POINTER"
  20. '
  21. '
  22. Rem wait here for 4 seconds to give enough time to read the text.
  23. Wait 200
  24. '
  25. '
  26. Locate 0,10 : Centre "CROSS HAIR MOUSE POINTER"
  27. '
  28. '
  29. Rem This is to CHANGE the MOUSE pointer to imagre 2
  30. Change Mouse 2
  31. '
  32. '
  33. Wait 200
  34. '
  35. '
  36. Locate 0,10 : Centre "CLOCK MOUSE POINTER, UGH!"
  37. '
  38. '
  39. Change Mouse 3
  40. '
  41. '
  42. Wait 200
  43. '
  44. '
  45. Edit